#!perl -T

use Test::More tests => 4;

use Image::DCMTK (":ALL", ADDITIONAL_TAGS => {
MyPrivateCreator => {GRP => "0021", ELEM => "0010", VR => "LO", VM => "1", VERSION => "PrivateTag"},
MyPrivateTag => {GRP => "0021", ELEM => "1008", VR => "LO", VM => "1", VERSION => "PrivateTag"},
Laterality => { GRP => "0020", ELEM => "0060", VR => "CS", VM => "1", VERSION =>  "RKH_2009"},
}
);
is_deeply($dcmtkDicomDictionary{Laterality}, { GRP => "0020", ELEM => "0060", VR => "CS", VM => "1", VERSION =>  "RKH_2009"}, "Modified Laterality");
is_deeply($reverseDicomDictionary{"00200060"}, { VR => "CS", DCM_DICT_NAME => "Laterality"}, "Reverse of Laterality");
is_deeply($Image::DCMTK::dcmtkDicomDictionary{MyPrivateTag},{GRP => "0021", ELEM => "1008", VR => "LO", VM => "1", VERSION => "PrivateTag"},"New Private Tag");
is_deeply($Image::DCMTK::reverseDicomDictionary{"00211008"}, { VR => "LO", DCM_DICT_NAME => "MyPrivateTag"}, "Reverse of Private Tag");

